macro MacPhase_Paint.m;
var
	boolean : notDone;
	Str255 : paintName;
	integer : x,y;
	real : fill;
begin
	paintName:='Paint Demo';
	fill:=0;
	NewData(paintName,128,128,1,FALSE);
	PutDataNumber(paintName,1,1,fill);
	PlotData(paintName,'Color Contour Plot',TRUE);
	ShowError('','Use the mouse to draw in the window.  Press Command-Period to stop.');
	SelectData(paintName);
	ForeColor(0,0,0);
	repeat
		notDone:=WaitMouseDown(x,y);
		PutDataNumber(paintName,x,y,fill);
		MoveTo(x,y);
		LineTo(x,y);
	until(!notDone);
	PlotData(paintName,'Color Contour Plot',FALSE);
end;
